home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 January
/
64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64
/
hyper iii .bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
154b
|
8 lines
100 ifa=0thena=1:load"hyper iii .obj",8,1
105 input"[147]ihre texteingabe";a$
110 fori=1tolen(a$)
115 poke49511+i,asc(mid$(a$,i,1))
120 next
125 poke49511+i,32:poke49512+i,0
130 sys49152